home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
unload1a
/
f2.frm
< prev
next >
Wrap
Text File
|
1999-10-21
|
719b
|
31 lines
VERSION 5.00
Begin VB.Form f2
AutoRedraw = -1 'True
BorderStyle = 0 'None
ClientHeight = 90
ClientLeft = 0
ClientTop = 0
ClientWidth = 90
ControlBox = 0 'False
LinkTopic = "Form2"
ScaleHeight = 90
ScaleWidth = 90
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "f2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
X = 1000
Y = 1000
Do Until X <= 0
X = X - 1
Y = Y - 1
f2.Height = Y
f2.Width = X
Loop
End Sub